/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / A-An / *HyCard.XCMD.cpt / *HyCard.XCMD / HyperXCmd.h

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 48 79 70 65 72 58 | 43 6d 64 2e 68 00 00 00 |..HyperX|Cmd.h...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 13 20 00 | 00 01 7e 9d 58 d1 eb 9d |...... .|..~.X...|
|00000060| 58 d1 eb 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |X.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 16 3c 00 00 |........|.....<..|
|00000080| 2f 2a 0d 09 48 79 70 65 | 72 58 43 6d 64 2e 68 20 |/*..Hype|rXCmd.h |
|00000090| 20 44 65 66 69 6e 69 74 | 69 6f 6e 73 20 66 6f 72 | Definit|ions for|
|000000a0| 20 63 61 6c 6c 69 6e 67 | 20 61 6c 6c 20 73 74 61 | calling| all sta|
|000000b0| 6e 64 61 72 64 20 0d 09 | 48 79 70 65 72 43 61 72 |ndard ..|HyperCar|
|000000c0| 64 20 63 61 6c 6c 62 61 | 63 6b 20 72 6f 75 74 69 |d callba|ck routi|
|000000d0| 6e 65 73 20 66 72 6f 6d | 20 43 2e 0d 09 a9 41 70 |nes from| C....Ap|
|000000e0| 70 6c 65 20 43 6f 6d 70 | 75 74 65 72 2c 20 49 6e |ple Comp|uter, In|
|000000f0| 63 2e 20 31 39 38 37 0d | 09 41 6c 6c 20 52 69 67 |c. 1987.|.All Rig|
|00000100| 68 74 73 20 52 65 73 65 | 72 76 65 64 2e 0d 0d 09 |hts Rese|rved....|
|00000110| 53 65 65 20 43 46 6c 61 | 73 68 2e 43 20 66 6f 72 |See CFla|sh.C for|
|00000120| 20 61 6e 20 65 78 61 6d | 70 6c 65 20 6f 66 20 68 | an exam|ple of h|
|00000130| 6f 77 20 74 6f 20 69 6e | 63 6c 75 64 65 20 74 68 |ow to in|clude th|
|00000140| 69 73 20 6d 6f 64 75 6c | 65 20 69 6e 20 79 6f 75 |is modul|e in you|
|00000150| 72 20 0d 09 43 20 70 72 | 6f 67 72 61 6d 2e 0d 2a |r ..C pr|ogram..*|
|00000160| 2f 0d 0d 0d 74 79 70 65 | 64 65 66 20 73 74 72 75 |/...type|def stru|
|00000170| 63 74 20 58 43 6d 64 42 | 6c 6f 63 6b 20 7b 0d 09 |ct XCmdB|lock {..|
|00000180| 73 68 6f 72 74 09 70 61 | 72 61 6d 43 6f 75 6e 74 |short.pa|ramCount|
|00000190| 3b 20 20 20 20 20 0d 20 | 20 20 20 48 61 6e 64 6c |;     . |   Handl|
|000001a0| 65 20 20 70 61 72 61 6d | 73 5b 31 36 5d 3b 0d 20 |e  param|s[16];. |
|000001b0| 20 20 20 48 61 6e 64 6c | 65 20 20 72 65 74 75 72 |   Handl|e  retur|
|000001c0| 6e 56 61 6c 75 65 3b 20 | 20 20 20 20 20 0d 20 20 |nValue; |     .  |
|000001d0| 20 20 42 6f 6f 6c 65 61 | 6e 09 70 61 73 73 46 6c |  Boolea|n.passFl|
|000001e0| 61 67 3b 20 0d 20 20 20 | 20 20 20 0d 20 20 20 20 |ag; .   |   .    |
|000001f0| 63 68 61 72 20 2a 09 65 | 6e 74 72 79 50 6f 69 6e |char *.e|ntryPoin|
|00000200| 74 3b 20 20 20 20 2f 2a | 20 74 6f 20 63 61 6c 6c |t;    /*| to call|
|00000210| 20 62 61 63 6b 20 74 6f | 20 48 79 70 65 72 43 61 | back to| HyperCa|
|00000220| 72 64 20 2a 2f 0d 20 20 | 20 20 73 68 6f 72 74 09 |rd */.  |  short.|
|00000230| 72 65 71 75 65 73 74 3b | 20 20 0d 20 20 20 20 73 |request;|  .    s|
|00000240| 68 6f 72 74 09 72 65 73 | 75 6c 74 3b 20 20 0d 20 |hort.res|ult;  . |
|00000250| 20 20 20 6c 6f 6e 67 09 | 69 6e 41 72 67 73 5b 38 |   long.|inArgs[8|
|00000260| 5d 3b 0d 20 20 20 20 6c | 6f 6e 67 09 6f 75 74 41 |];.    l|ong.outA|
|00000270| 72 67 73 5b 34 5d 3b 0d | 20 20 20 7d 20 58 43 6d |rgs[4];.|   } XCm|
|00000280| 64 42 6c 6f 63 6b 2c 20 | 2a 58 43 6d 64 42 6c 6f |dBlock, |*XCmdBlo|
|00000290| 63 6b 50 74 72 3b 0d 20 | 20 20 0d 74 79 70 65 64 |ckPtr;. |  .typed|
|000002a0| 65 66 20 73 74 72 75 63 | 74 20 53 74 72 33 31 20 |ef struc|t Str31 |
|000002b0| 7b 0d 09 63 68 61 72 09 | 67 75 74 73 5b 33 32 5d |{..char.|guts[32]|
|000002c0| 0d 09 7d 20 53 74 72 33 | 31 2c 20 2a 53 74 72 33 |..} Str3|1, *Str3|
|000002d0| 31 50 74 72 3b 0d 0d 20 | 20 2f 2a 72 65 73 75 6c |1Ptr;.. | /*resul|
|000002e0| 74 20 63 6f 64 65 73 20 | 2a 2f 0d 23 64 65 66 69 |t codes |*/.#defi|
|000002f0| 6e 65 09 78 72 65 73 53 | 75 63 63 20 09 09 30 0d |ne.xresS|ucc ..0.|
|00000300| 23 64 65 66 69 6e 65 09 | 78 72 65 73 46 61 69 6c |#define.|xresFail|
|00000310| 20 09 09 31 20 0d 23 64 | 65 66 69 6e 65 09 78 72 | ..1 .#d|efine.xr|
|00000320| 65 73 4e 6f 74 49 6d 70 | 20 09 09 32 20 0d 20 20 |esNotImp| ..2 .  |
|00000330| 0d 20 20 2f 2a 20 72 65 | 71 75 65 73 74 20 63 6f |.  /* re|quest co|
|00000340| 64 65 73 20 2a 2f 0d 23 | 64 65 66 69 6e 65 09 78 |des */.#|define.x|
|00000350| 72 65 71 53 65 6e 64 43 | 61 72 64 4d 65 73 73 61 |reqSendC|ardMessa|
|00000360| 67 65 09 09 31 20 0d 23 | 64 65 66 69 6e 65 09 78 |ge..1 .#|define.x|
|00000370| 72 65 71 45 76 61 6c 45 | 78 70 72 09 09 09 32 20 |reqEvalE|xpr...2 |
|00000380| 0d 23 64 65 66 69 6e 65 | 09 78 72 65 71 53 74 72 |.#define|.xreqStr|
|00000390| 69 6e 67 4c 65 6e 67 74 | 68 09 09 33 20 0d 23 64 |ingLengt|h..3 .#d|
|000003a0| 65 66 69 6e 65 09 78 72 | 65 71 53 74 72 69 6e 67 |efine.xr|eqString|
|000003b0| 4d 61 74 63 68 09 09 09 | 34 20 0d 23 64 65 66 69 |Match...|4 .#defi|
|000003c0| 6e 65 20 78 72 65 71 53 | 65 6e 64 48 43 4d 65 73 |ne xreqS|endHCMes|
|000003d0| 73 61 67 65 09 09 35 0d | 23 64 65 66 69 6e 65 09 |sage..5.|#define.|
|000003e0| 78 72 65 71 5a 65 72 6f | 42 79 74 65 73 20 20 20 |xreqZero|Bytes   |
|000003f0| 20 20 20 20 20 20 09 36 | 20 0d 23 64 65 66 69 6e |      .6| .#defin|
|00000400| 65 09 78 72 65 71 50 61 | 73 54 6f 5a 65 72 6f 09 |e.xreqPa|sToZero.|
|00000410| 09 09 37 20 0d 23 64 65 | 66 69 6e 65 09 78 72 65 |..7 .#de|fine.xre|
|00000420| 71 5a 65 72 6f 54 6f 50 | 61 73 09 09 09 38 20 0d |qZeroToP|as...8 .|
|00000430| 23 64 65 66 69 6e 65 09 | 78 72 65 71 53 74 72 54 |#define.|xreqStrT|
|00000440| 6f 4c 6f 6e 67 09 09 09 | 39 20 0d 23 64 65 66 69 |oLong...|9 .#defi|
|00000450| 6e 65 09 78 72 65 71 53 | 74 72 54 6f 4e 75 6d 09 |ne.xreqS|trToNum.|
|00000460| 09 09 31 30 20 0d 23 64 | 65 66 69 6e 65 09 78 72 |..10 .#d|efine.xr|
|00000470| 65 71 53 74 72 54 6f 42 | 6f 6f 6c 09 09 09 31 31 |eqStrToB|ool...11|
|00000480| 20 0d 23 64 65 66 69 6e | 65 09 78 72 65 71 53 74 | .#defin|e.xreqSt|
|00000490| 72 54 6f 45 78 74 09 09 | 09 31 32 20 0d 23 64 65 |rToExt..|.12 .#de|
|000004a0| 66 69 6e 65 09 78 72 65 | 71 4c 6f 6e 67 54 6f 53 |fine.xre|qLongToS|
|000004b0| 74 72 09 09 09 31 33 20 | 0d 23 64 65 66 69 6e 65 |tr...13 |.#define|
|000004c0| 09 78 72 65 71 4e 75 6d | 54 6f 53 74 72 09 09 09 |.xreqNum|ToStr...|
|000004d0| 31 34 20 0d 23 64 65 66 | 69 6e 65 09 78 72 65 71 |14 .#def|ine.xreq|
|000004e0| 4e 75 6d 54 6f 48 65 78 | 09 09 09 31 35 20 0d 23 |NumToHex|...15 .#|
|000004f0| 64 65 66 69 6e 65 09 78 | 72 65 71 42 6f 6f 6c 54 |define.x|reqBoolT|
|00000500| 6f 53 74 72 09 09 09 31 | 36 20 0d 23 64 65 66 69 |oStr...1|6 .#defi|
|00000510| 6e 65 09 78 72 65 71 45 | 78 74 54 6f 53 74 72 09 |ne.xreqE|xtToStr.|
|00000520| 09 09 31 37 20 0d 23 64 | 65 66 69 6e 65 09 78 72 |..17 .#d|efine.xr|
|00000530| 65 71 47 65 74 47 6c 6f | 62 61 6c 09 09 09 31 38 |eqGetGlo|bal...18|
|00000540| 20 0d 23 64 65 66 69 6e | 65 09 78 72 65 71 53 65 | .#defin|e.xreqSe|
|00000550| 74 47 6c 6f 62 61 6c 09 | 09 09 31 39 20 0d 23 64 |tGlobal.|..19 .#d|
|00000560| 65 66 69 6e 65 09 78 72 | 65 71 47 65 74 46 69 65 |efine.xr|eqGetFie|
|00000570| 6c 64 42 79 4e 61 6d 65 | 09 09 32 30 20 0d 23 64 |ldByName|..20 .#d|
|00000580| 65 66 69 6e 65 09 78 72 | 65 71 47 65 74 46 69 65 |efine.xr|eqGetFie|
|00000590| 6c 64 42 79 4e 75 6d 09 | 09 32 31 20 0d 23 64 65 |ldByNum.|.21 .#de|
|000005a0| 66 69 6e 65 09 78 72 65 | 71 47 65 74 46 69 65 6c |fine.xre|qGetFiel|
|000005b0| 64 42 79 49 44 09 09 32 | 32 20 0d 23 64 65 66 69 |dByID..2|2 .#defi|
|000005c0| 6e 65 09 78 72 65 71 53 | 65 74 46 69 65 6c 64 42 |ne.xreqS|etFieldB|
|000005d0| 79 4e 61 6d 65 09 09 32 | 33 20 0d 23 64 65 66 69 |yName..2|3 .#defi|
|000005e0| 6e 65 09 78 72 65 71 53 | 65 74 46 69 65 6c 64 42 |ne.xreqS|etFieldB|
|000005f0| 79 4e 75 6d 09 09 32 34 | 20 0d 23 64 65 66 69 6e |yNum..24| .#defin|
|00000600| 65 09 78 72 65 71 53 65 | 74 46 69 65 6c 64 42 79 |e.xreqSe|tFieldBy|
|00000610| 49 44 09 09 32 35 20 0d | 23 64 65 66 69 6e 65 09 |ID..25 .|#define.|
|00000620| 78 72 65 71 53 74 72 69 | 6e 67 45 71 75 61 6c 20 |xreqStri|ngEqual |
|00000630| 20 20 20 20 20 20 09 32 | 36 20 0d 23 64 65 66 69 |      .2|6 .#defi|
|00000640| 6e 65 09 78 72 65 71 52 | 65 74 75 72 6e 54 6f 50 |ne.xreqR|eturnToP|
|00000650| 61 73 20 20 20 20 20 20 | 20 09 32 37 20 0d 23 64 |as      | .27 .#d|
|00000660| 65 66 69 6e 65 09 78 72 | 65 71 53 63 61 6e 54 6f |efine.xr|eqScanTo|
|00000670| 52 65 74 75 72 6e 20 20 | 20 20 20 20 09 32 38 20 |Return  |    .28 |
|00000680| 0d 23 64 65 66 69 6e 65 | 09 78 72 65 71 53 63 61 |.#define|.xreqSca|
|00000690| 6e 54 6f 5a 65 72 6f 20 | 20 20 20 20 20 20 20 09 |nToZero |       .|
|000006a0| 33 39 20 20 20 2f 2a 20 | 77 61 73 20 73 75 70 70 |39   /* |was supp|
|000006b0| 6f 73 65 20 74 6f 20 62 | 65 20 32 39 21 20 20 4f |ose to b|e 29!  O|
|000006c0| 6f 70 73 21 20 2a 2f 0d | 0d 0d 2f 2a 20 46 6f 72 |ops! */.|../* For|
|000006d0| 77 61 72 64 20 64 65 66 | 69 6e 69 74 69 6f 6e 73 |ward def|initions|
|000006e0| 20 6f 66 20 67 6c 75 65 | 20 72 6f 75 74 69 6e 65 | of glue| routine|
|000006f0| 73 2e 20 20 4d 61 69 6e | 20 70 72 6f 67 72 61 6d |s.  Main| program|
|00000700| 20 0d 09 6d 75 73 74 20 | 69 6e 63 6c 75 64 65 20 | ..must |include |
|00000710| 58 43 6d 64 47 6c 75 65 | 2e 69 6e 63 2e 63 2e 20 |XCmdGlue|.inc.c. |
|00000720| 20 53 65 65 20 58 43 6d | 64 47 6c 75 65 2e 69 6e | See XCm|dGlue.in|
|00000730| 63 2e 63 20 66 6f 72 20 | 0d 09 64 6f 63 75 6d 65 |c.c for |..docume|
|00000740| 6e 74 61 74 69 6f 6e 20 | 6f 66 20 65 61 63 68 20 |ntation |of each |
|00000750| 72 6f 75 74 69 6e 65 2e | 20 20 2a 2f 0d 74 79 70 |routine.|  */.typ|
|00000760| 65 64 65 66 20 76 6f 69 | 64 20 28 2a 4d 79 50 72 |edef voi|d (*MyPr|
|00000770| 6f 63 50 74 72 29 20 28 | 29 3b 0d 0d 70 61 73 63 |ocPtr) (|);..pasc|
|00000780| 61 6c 20 76 6f 69 64 20 | 53 65 6e 64 43 61 72 64 |al void |SendCard|
|00000790| 4d 65 73 73 61 67 65 28 | 70 61 72 61 6d 50 74 72 |Message(|paramPtr|
|000007a0| 2c 6d 73 67 29 0d 09 58 | 43 6d 64 42 6c 6f 63 6b |,msg)..X|CmdBlock|
|000007b0| 50 74 72 09 70 61 72 61 | 6d 50 74 72 3b 09 53 74 |Ptr.para|mPtr;.St|
|000007c0| 72 69 6e 67 50 74 72 09 | 6d 73 67 3b 09 65 78 74 |ringPtr.|msg;.ext|
|000007d0| 65 72 6e 3b 0d 70 61 73 | 63 61 6c 20 48 61 6e 64 |ern;.pas|cal Hand|
|000007e0| 6c 65 20 45 76 61 6c 45 | 78 70 72 28 70 61 72 61 |le EvalE|xpr(para|
|000007f0| 6d 50 74 72 2c 65 78 70 | 72 29 0d 09 58 43 6d 64 |mPtr,exp|r)..XCmd|
|00000800| 42 6c 6f 63 6b 50 74 72 | 09 70 61 72 61 6d 50 74 |BlockPtr|.paramPt|
|00000810| 72 3b 09 53 74 72 69 6e | 67 50 74 72 09 65 78 70 |r;.Strin|gPtr.exp|
|00000820| 72 3b 09 65 78 74 65 72 | 6e 3b 0d 70 61 73 63 61 |r;.exter|n;.pasca|
|00000830| 6c 20 6c 6f 6e 67 20 53 | 74 72 69 6e 67 4c 65 6e |l long S|tringLen|
|00000840| 67 74 68 28 70 61 72 61 | 6d 50 74 72 2c 73 74 72 |gth(para|mPtr,str|
|00000850| 50 74 72 29 0d 09 58 43 | 6d 64 42 6c 6f 63 6b 50 |Ptr)..XC|mdBlockP|
|00000860| 74 72 09 70 61 72 61 6d | 50 74 72 3b 09 53 74 72 |tr.param|Ptr;.Str|
|00000870| 69 6e 67 50 74 72 09 73 | 74 72 50 74 72 3b 09 65 |ingPtr.s|trPtr;.e|
|00000880| 78 74 65 72 6e 3b 0d 70 | 61 73 63 61 6c 20 50 74 |xtern;.p|ascal Pt|
|00000890| 72 20 53 74 72 69 6e 67 | 4d 61 74 63 68 28 70 61 |r String|Match(pa|
|000008a0| 72 61 6d 50 74 72 2c 70 | 61 74 74 65 72 6e 2c 74 |ramPtr,p|attern,t|
|000008b0| 61 72 67 65 74 29 0d 09 | 58 43 6d 64 42 6c 6f 63 |arget)..|XCmdBloc|
|000008c0| 6b 50 74 72 09 70 61 72 | 61 6d 50 74 72 3b 09 53 |kPtr.par|amPtr;.S|
|000008d0| 74 72 69 6e 67 50 74 72 | 09 70 61 74 74 65 72 6e |tringPtr|.pattern|
|000008e0| 3b 0d 09 50 74 72 09 74 | 61 72 67 65 74 3b 09 65 |;..Ptr.t|arget;.e|
|000008f0| 78 74 65 72 6e 3b 0d 09 | 0d 70 61 73 63 61 6c 20 |xtern;..|.pascal |
|00000900| 76 6f 69 64 20 5a 65 72 | 6f 42 79 74 65 73 28 70 |void Zer|oBytes(p|
|00000910| 61 72 61 6d 50 74 72 2c | 64 73 74 50 74 72 2c 6c |aramPtr,|dstPtr,l|
|00000920| 6f 6e 67 43 6f 75 6e 74 | 29 0d 09 58 43 6d 64 42 |ongCount|)..XCmdB|
|00000930| 6c 6f 63 6b 50 74 72 09 | 70 61 72 61 6d 50 74 72 |lockPtr.|paramPtr|
|00000940| 3b 09 50 74 72 09 64 73 | 74 50 74 72 3b 0d 09 6c |;.Ptr.ds|tPtr;..l|
|00000950| 6f 6e 67 09 6c 6f 6e 67 | 43 6f 75 6e 74 3b 09 65 |ong.long|Count;.e|
|00000960| 78 74 65 72 6e 3b 0d 70 | 61 73 63 61 6c 20 48 61 |xtern;.p|ascal Ha|
|00000970| 6e 64 6c 65 20 50 61 73 | 54 6f 5a 65 72 6f 28 70 |ndle Pas|ToZero(p|
|00000980| 61 72 61 6d 50 74 72 2c | 70 61 73 53 74 72 29 0d |aramPtr,|pasStr).|
|00000990| 09 58 43 6d 64 42 6c 6f | 63 6b 50 74 72 09 70 61 |.XCmdBlo|ckPtr.pa|
|000009a0| 72 61 6d 50 74 72 3b 09 | 53 74 72 69 6e 67 50 74 |ramPtr;.|StringPt|
|000009b0| 72 09 70 61 73 53 74 72 | 3b 09 65 78 74 65 72 6e |r.pasStr|;.extern|
|000009c0| 3b 0d 70 61 73 63 61 6c | 20 76 6f 69 64 20 5a 65 |;.pascal| void Ze|
|000009d0| 72 6f 54 6f 50 61 73 28 | 70 61 72 61 6d 50 74 72 |roToPas(|paramPtr|
|000009e0| 2c 7a 65 72 6f 53 74 72 | 2c 70 61 73 53 74 72 29 |,zeroStr|,pasStr)|
|000009f0| 0d 09 58 43 6d 64 42 6c | 6f 63 6b 50 74 72 09 70 |..XCmdBl|ockPtr.p|
|00000a00| 61 72 61 6d 50 74 72 3b | 09 63 68 61 72 09 2a 7a |aramPtr;|.char.*z|
|00000a10| 65 72 6f 53 74 72 3b 0d | 09 53 74 72 69 6e 67 50 |eroStr;.|.StringP|
|00000a20| 74 72 09 70 61 73 53 74 | 72 3b 09 65 78 74 65 72 |tr.pasSt|r;.exter|
|00000a30| 6e 3b 0d 70 61 73 63 61 | 6c 20 6c 6f 6e 67 20 53 |n;.pasca|l long S|
|00000a40| 74 72 54 6f 4c 6f 6e 67 | 28 70 61 72 61 6d 50 74 |trToLong|(paramPt|
|00000a50| 72 2c 73 74 72 50 74 72 | 29 0d 09 58 43 6d 64 42 |r,strPtr|)..XCmdB|
|00000a60| 6c 6f 63 6b 50 74 72 09 | 70 61 72 61 6d 50 74 72 |lockPtr.|paramPtr|
|00000a70| 3b 09 53 74 72 33 31 20 | 2a 09 73 74 72 50 74 72 |;.Str31 |*.strPtr|
|00000a80| 3b 09 65 78 74 65 72 6e | 3b 0d 70 61 73 63 61 6c |;.extern|;.pascal|
|00000a90| 20 6c 6f 6e 67 20 53 74 | 72 54 6f 4e 75 6d 28 70 | long St|rToNum(p|
|00000aa0| 61 72 61 6d 50 74 72 2c | 73 74 72 29 0d 09 58 43 |aramPtr,|str)..XC|
|00000ab0| 6d 64 42 6c 6f 63 6b 50 | 74 72 09 70 61 72 61 6d |mdBlockP|tr.param|
|00000ac0| 50 74 72 3b 09 53 74 72 | 33 31 20 2a 20 09 73 74 |Ptr;.Str|31 * .st|
|00000ad0| 72 3b 09 65 78 74 65 72 | 6e 3b 0d 70 61 73 63 61 |r;.exter|n;.pasca|
|00000ae0| 6c 20 42 6f 6f 6c 65 61 | 6e 20 53 74 72 54 6f 42 |l Boolea|n StrToB|
|00000af0| 6f 6f 6c 28 70 61 72 61 | 6d 50 74 72 2c 73 74 72 |ool(para|mPtr,str|
|00000b00| 29 0d 09 58 43 6d 64 42 | 6c 6f 63 6b 50 74 72 09 |)..XCmdB|lockPtr.|
|00000b10| 70 61 72 61 6d 50 74 72 | 3b 09 53 74 72 33 31 20 |paramPtr|;.Str31 |
|00000b20| 2a 20 09 73 74 72 3b 09 | 65 78 74 65 72 6e 3b 0d |* .str;.|extern;.|
|00000b30| 70 61 73 63 61 6c 20 76 | 6f 69 64 20 53 74 72 54 |pascal v|oid StrT|
|00000b40| 6f 45 78 74 28 70 61 72 | 61 6d 50 74 72 2c 73 74 |oExt(par|amPtr,st|
|00000b50| 72 2c 6d 79 65 78 74 29 | 0d 09 58 43 6d 64 42 6c |r,myext)|..XCmdBl|
|00000b60| 6f 63 6b 50 74 72 09 70 | 61 72 61 6d 50 74 72 3b |ockPtr.p|aramPtr;|
|00000b70| 09 53 74 72 33 31 20 2a | 20 09 73 74 72 3b 0d 09 |.Str31 *| .str;..|
|00000b80| 65 78 74 65 6e 64 65 64 | 20 2a 09 6d 79 65 78 74 |extended| *.myext|
|00000b90| 3b 09 65 78 74 65 72 6e | 3b 0d 70 61 73 63 61 6c |;.extern|;.pascal|
|00000ba0| 20 76 6f 69 64 20 4c 6f | 6e 67 54 6f 53 74 72 28 | void Lo|ngToStr(|
|00000bb0| 70 61 72 61 6d 50 74 72 | 2c 70 6f 73 4e 75 6d 2c |paramPtr|,posNum,|
|00000bc0| 6d 79 73 74 72 29 0d 09 | 58 43 6d 64 42 6c 6f 63 |mystr)..|XCmdBloc|
|00000bd0| 6b 50 74 72 09 70 61 72 | 61 6d 50 74 72 3b 09 6c |kPtr.par|amPtr;.l|
|00000be0| 6f 6e 67 20 09 70 6f 73 | 4e 75 6d 3b 0d 09 53 74 |ong .pos|Num;..St|
|00000bf0| 72 33 31 20 2a 09 6d 79 | 73 74 72 3b 09 65 78 74 |r31 *.my|str;.ext|
|00000c00| 65 72 6e 3b 0d 70 61 73 | 63 61 6c 20 76 6f 69 64 |ern;.pas|cal void|
|00000c10| 20 4e 75 6d 54 6f 53 74 | 72 28 70 61 72 61 6d 50 | NumToSt|r(paramP|
|00000c20| 74 72 2c 6e 75 6d 2c 6d | 79 73 74 72 29 0d 09 58 |tr,num,m|ystr)..X|
|00000c30| 43 6d 64 42 6c 6f 63 6b | 50 74 72 09 70 61 72 61 |CmdBlock|Ptr.para|
|00000c40| 6d 50 74 72 3b 09 6c 6f | 6e 67 20 09 6e 75 6d 3b |mPtr;.lo|ng .num;|
|00000c50| 0d 09 53 74 72 33 31 20 | 2a 09 6d 79 73 74 72 3b |..Str31 |*.mystr;|
|00000c60| 09 65 78 74 65 72 6e 3b | 0d 70 61 73 63 61 6c 20 |.extern;|.pascal |
|00000c70| 76 6f 69 64 20 4e 75 6d | 54 6f 48 65 78 28 70 61 |void Num|ToHex(pa|
|00000c80| 72 61 6d 50 74 72 2c 6e | 75 6d 2c 6e 44 69 67 69 |ramPtr,n|um,nDigi|
|00000c90| 74 73 2c 6d 79 73 74 72 | 29 0d 09 58 43 6d 64 42 |ts,mystr|)..XCmdB|
|00000ca0| 6c 6f 63 6b 50 74 72 09 | 70 61 72 61 6d 50 74 72 |lockPtr.|paramPtr|
|00000cb0| 3b 09 6c 6f 6e 67 20 09 | 6e 75 6d 3b 0d 09 73 68 |;.long .|num;..sh|
|00000cc0| 6f 72 74 09 6e 44 69 67 | 69 74 73 3b 09 09 09 53 |ort.nDig|its;...S|
|00000cd0| 74 72 33 31 20 2a 09 6d | 79 73 74 72 3b 09 65 78 |tr31 *.m|ystr;.ex|
|00000ce0| 74 65 72 6e 3b 0d 70 61 | 73 63 61 6c 20 76 6f 69 |tern;.pa|scal voi|
|00000cf0| 64 20 42 6f 6f 6c 54 6f | 53 74 72 28 70 61 72 61 |d BoolTo|Str(para|
|00000d00| 6d 50 74 72 2c 62 6f 6f | 6c 2c 6d 79 73 74 72 29 |mPtr,boo|l,mystr)|
|00000d10| 0d 09 58 43 6d 64 42 6c | 6f 63 6b 50 74 72 09 70 |..XCmdBl|ockPtr.p|
|00000d20| 61 72 61 6d 50 74 72 3b | 09 42 6f 6f 6c 65 61 6e |aramPtr;|.Boolean|
|00000d30| 09 62 6f 6f 6c 3b 0d 09 | 53 74 72 33 31 20 2a 09 |.bool;..|Str31 *.|
|00000d40| 6d 79 73 74 72 3b 09 65 | 78 74 65 72 6e 3b 0d 70 |mystr;.e|xtern;.p|
|00000d50| 61 73 63 61 6c 20 76 6f | 69 64 20 45 78 74 54 6f |ascal vo|id ExtTo|
|00000d60| 53 74 72 28 70 61 72 61 | 6d 50 74 72 2c 6d 79 65 |Str(para|mPtr,mye|
|00000d70| 78 74 2c 6d 79 73 74 72 | 29 0d 09 58 43 6d 64 42 |xt,mystr|)..XCmdB|
|00000d80| 6c 6f 63 6b 50 74 72 09 | 70 61 72 61 6d 50 74 72 |lockPtr.|paramPtr|
|00000d90| 3b 09 65 78 74 65 6e 64 | 65 64 20 2a 09 6d 79 65 |;.extend|ed *.mye|
|00000da0| 78 74 3b 0d 09 53 74 72 | 33 31 20 2a 09 6d 79 73 |xt;..Str|31 *.mys|
|00000db0| 74 72 3b 09 65 78 74 65 | 72 6e 3b 0d 70 61 73 63 |tr;.exte|rn;.pasc|
|00000dc0| 61 6c 20 48 61 6e 64 6c | 65 20 47 65 74 47 6c 6f |al Handl|e GetGlo|
|00000dd0| 62 61 6c 28 70 61 72 61 | 6d 50 74 72 2c 67 6c 6f |bal(para|mPtr,glo|
|00000de0| 62 4e 61 6d 65 29 0d 09 | 58 43 6d 64 42 6c 6f 63 |bName)..|XCmdBloc|
|00000df0| 6b 50 74 72 09 70 61 72 | 61 6d 50 74 72 3b 09 53 |kPtr.par|amPtr;.S|
|00000e00| 74 72 69 6e 67 50 74 72 | 09 67 6c 6f 62 4e 61 6d |tringPtr|.globNam|
|00000e10| 65 3b 09 65 78 74 65 72 | 6e 3b 0d 70 61 73 63 61 |e;.exter|n;.pasca|
|00000e20| 6c 20 76 6f 69 64 20 53 | 65 74 47 6c 6f 62 61 6c |l void S|etGlobal|
|00000e30| 28 70 61 72 61 6d 50 74 | 72 2c 67 6c 6f 62 4e 61 |(paramPt|r,globNa|
|00000e40| 6d 65 2c 67 6c 6f 62 56 | 61 6c 75 65 29 0d 09 58 |me,globV|alue)..X|
|00000e50| 43 6d 64 42 6c 6f 63 6b | 50 74 72 09 70 61 72 61 |CmdBlock|Ptr.para|
|00000e60| 6d 50 74 72 3b 09 53 74 | 72 69 6e 67 50 74 72 09 |mPtr;.St|ringPtr.|
|00000e70| 67 6c 6f 62 4e 61 6d 65 | 3b 0d 09 48 61 6e 64 6c |globName|;..Handl|
|00000e80| 65 09 67 6c 6f 62 56 61 | 6c 75 65 3b 09 65 78 74 |e.globVa|lue;.ext|
|00000e90| 65 72 6e 3b 0d 70 61 73 | 63 61 6c 20 48 61 6e 64 |ern;.pas|cal Hand|
|00000ea0| 6c 65 20 47 65 74 46 69 | 65 6c 64 42 79 4e 61 6d |le GetFi|eldByNam|
|00000eb0| 65 28 70 61 72 61 6d 50 | 74 72 2c 63 61 72 64 46 |e(paramP|tr,cardF|
|00000ec0| 69 65 6c 64 46 6c 61 67 | 2c 66 69 65 6c 64 4e 61 |ieldFlag|,fieldNa|
|00000ed0| 6d 65 29 0d 09 58 43 6d | 64 42 6c 6f 63 6b 50 74 |me)..XCm|dBlockPt|
|00000ee0| 72 09 70 61 72 61 6d 50 | 74 72 3b 09 42 6f 6f 6c |r.paramP|tr;.Bool|
|00000ef0| 65 61 6e 09 63 61 72 64 | 46 69 65 6c 64 46 6c 61 |ean.card|FieldFla|
|00000f00| 67 3b 0d 09 53 74 72 69 | 6e 67 50 74 72 09 66 69 |g;..Stri|ngPtr.fi|
|00000f10| 65 6c 64 4e 61 6d 65 3b | 09 65 78 74 65 72 6e 3b |eldName;|.extern;|
|00000f20| 0d 70 61 73 63 61 6c 20 | 48 61 6e 64 6c 65 20 47 |.pascal |Handle G|
|00000f30| 65 74 46 69 65 6c 64 42 | 79 4e 75 6d 28 70 61 72 |etFieldB|yNum(par|
|00000f40| 61 6d 50 74 72 2c 63 61 | 72 64 46 69 65 6c 64 46 |amPtr,ca|rdFieldF|
|00000f50| 6c 61 67 2c 66 69 65 6c | 64 4e 75 6d 29 0d 09 58 |lag,fiel|dNum)..X|
|00000f60| 43 6d 64 42 6c 6f 63 6b | 50 74 72 09 70 61 72 61 |CmdBlock|Ptr.para|
|00000f70| 6d 50 74 72 3b 09 42 6f | 6f 6c 65 61 6e 09 63 61 |mPtr;.Bo|olean.ca|
|00000f80| 72 64 46 69 65 6c 64 46 | 6c 61 67 3b 0d 09 73 68 |rdFieldF|lag;..sh|
|00000f90| 6f 72 74 09 66 69 65 6c | 64 4e 75 6d 3b 09 65 78 |ort.fiel|dNum;.ex|
|00000fa0| 74 65 72 6e 3b 0d 70 61 | 73 63 61 6c 20 48 61 6e |tern;.pa|scal Han|
|00000fb0| 64 6c 65 20 47 65 74 46 | 69 65 6c 64 42 79 49 44 |dle GetF|ieldByID|
|00000fc0| 28 70 61 72 61 6d 50 74 | 72 2c 63 61 72 64 46 69 |(paramPt|r,cardFi|
|00000fd0| 65 6c 64 46 6c 61 67 2c | 66 69 65 6c 64 49 44 29 |eldFlag,|fieldID)|
|00000fe0| 0d 09 58 43 6d 64 42 6c | 6f 63 6b 50 74 72 09 70 |..XCmdBl|ockPtr.p|
|00000ff0| 61 72 61 6d 50 74 72 3b | 09 42 6f 6f 6c 65 61 6e |aramPtr;|.Boolean|
|00001000| 09 63 61 72 64 46 69 65 | 6c 64 46 6c 61 67 3b 0d |.cardFie|ldFlag;.|
|00001010| 09 73 68 6f 72 74 09 66 | 69 65 6c 64 49 44 3b 09 |.short.f|ieldID;.|
|00001020| 65 78 74 65 72 6e 3b 0d | 70 61 73 63 61 6c 20 76 |extern;.|pascal v|
|00001030| 6f 69 64 20 53 65 74 46 | 69 65 6c 64 42 79 4e 61 |oid SetF|ieldByNa|
|00001040| 6d 65 28 70 61 72 61 6d | 50 74 72 2c 63 61 72 64 |me(param|Ptr,card|
|00001050| 46 69 65 6c 64 46 6c 61 | 67 2c 66 69 65 6c 64 4e |FieldFla|g,fieldN|
|00001060| 61 6d 65 2c 66 69 65 6c | 64 56 61 6c 29 0d 09 58 |ame,fiel|dVal)..X|
|00001070| 43 6d 64 42 6c 6f 63 6b | 50 74 72 09 70 61 72 61 |CmdBlock|Ptr.para|
|00001080| 6d 50 74 72 3b 09 42 6f | 6f 6c 65 61 6e 09 63 61 |mPtr;.Bo|olean.ca|
|00001090| 72 64 46 69 65 6c 64 46 | 6c 61 67 3b 0d 09 53 74 |rdFieldF|lag;..St|
|000010a0| 72 69 6e 67 50 74 72 09 | 66 69 65 6c 64 4e 61 6d |ringPtr.|fieldNam|
|000010b0| 65 3b 09 48 61 6e 64 6c | 65 09 66 69 65 6c 64 56 |e;.Handl|e.fieldV|
|000010c0| 61 6c 3b 09 65 78 74 65 | 72 6e 3b 0d 70 61 73 63 |al;.exte|rn;.pasc|
|000010d0| 61 6c 20 76 6f 69 64 20 | 53 65 74 46 69 65 6c 64 |al void |SetField|
|000010e0| 42 79 4e 75 6d 28 70 61 | 72 61 6d 50 74 72 2c 63 |ByNum(pa|ramPtr,c|
|000010f0| 61 72 64 46 69 65 6c 64 | 46 6c 61 67 2c 66 69 65 |ardField|Flag,fie|
|00001100| 6c 64 4e 75 6d 2c 66 69 | 65 6c 64 56 61 6c 29 0d |ldNum,fi|eldVal).|
|00001110| 09 58 43 6d 64 42 6c 6f | 63 6b 50 74 72 09 70 61 |.XCmdBlo|ckPtr.pa|
|00001120| 72 61 6d 50 74 72 3b 09 | 42 6f 6f 6c 65 61 6e 09 |ramPtr;.|Boolean.|
|00001130| 63 61 72 64 46 69 65 6c | 64 46 6c 61 67 3b 0d 09 |cardFiel|dFlag;..|
|00001140| 73 68 6f 72 74 09 66 69 | 65 6c 64 4e 75 6d 3b 09 |short.fi|eldNum;.|
|00001150| 09 09 48 61 6e 64 6c 65 | 09 66 69 65 6c 64 56 61 |..Handle|.fieldVa|
|00001160| 6c 3b 09 65 78 74 65 72 | 6e 3b 0d 70 61 73 63 61 |l;.exter|n;.pasca|
|00001170| 6c 20 76 6f 69 64 20 53 | 65 74 46 69 65 6c 64 42 |l void S|etFieldB|
|00001180| 79 49 44 28 70 61 72 61 | 6d 50 74 72 2c 63 61 72 |yID(para|mPtr,car|
|00001190| 64 46 69 65 6c 64 46 6c | 61 67 2c 66 69 65 6c 64 |dFieldFl|ag,field|
|000011a0| 49 44 2c 66 69 65 6c 64 | 56 61 6c 29 0d 09 58 43 |ID,field|Val)..XC|
|000011b0| 6d 64 42 6c 6f 63 6b 50 | 74 72 09 70 61 72 61 6d |mdBlockP|tr.param|
|000011c0| 50 74 72 3b 09 42 6f 6f | 6c 65 61 6e 09 63 61 72 |Ptr;.Boo|lean.car|
|000011d0| 64 46 69 65 6c 64 46 6c | 61 67 3b 0d 09 73 68 6f |dFieldFl|ag;..sho|
|000011e0| 72 74 09 66 69 65 6c 64 | 49 44 3b 09 09 09 48 61 |rt.field|ID;...Ha|
|000011f0| 6e 64 6c 65 09 66 69 65 | 6c 64 56 61 6c 3b 09 65 |ndle.fie|ldVal;.e|
|00001200| 78 74 65 72 6e 3b 0d 70 | 61 73 63 61 6c 20 42 6f |xtern;.p|ascal Bo|
|00001210| 6f 6c 65 61 6e 20 53 74 | 72 69 6e 67 45 71 75 61 |olean St|ringEqua|
|00001220| 6c 28 70 61 72 61 6d 50 | 74 72 2c 73 74 72 31 2c |l(paramP|tr,str1,|
|00001230| 73 74 72 32 29 0d 09 58 | 43 6d 64 42 6c 6f 63 6b |str2)..X|CmdBlock|
|00001240| 50 74 72 09 70 61 72 61 | 6d 50 74 72 3b 09 53 74 |Ptr.para|mPtr;.St|
|00001250| 72 33 31 20 2a 20 09 73 | 74 72 31 3b 0d 09 53 74 |r31 * .s|tr1;..St|
|00001260| 72 33 31 20 2a 20 09 73 | 74 72 32 3b 09 65 78 74 |r31 * .s|tr2;.ext|
|00001270| 65 72 6e 3b 0d 70 61 73 | 63 61 6c 20 76 6f 69 64 |ern;.pas|cal void|
|00001280| 20 52 65 74 75 72 6e 54 | 6f 50 61 73 28 70 61 72 | ReturnT|oPas(par|
|00001290| 61 6d 50 74 72 2c 7a 65 | 72 6f 53 74 72 2c 70 61 |amPtr,ze|roStr,pa|
|000012a0| 73 53 74 72 29 0d 09 58 | 43 6d 64 42 6c 6f 63 6b |sStr)..X|CmdBlock|
|000012b0| 50 74 72 09 70 61 72 61 | 6d 50 74 72 3b 09 50 74 |Ptr.para|mPtr;.Pt|
|000012c0| 72 09 7a 65 72 6f 53 74 | 72 3b 0d 09 53 74 72 69 |r.zeroSt|r;..Stri|
|000012d0| 6e 67 50 74 72 09 70 61 | 73 53 74 72 3b 09 65 78 |ngPtr.pa|sStr;.ex|
|000012e0| 74 65 72 6e 3b 0d 70 61 | 73 63 61 6c 20 76 6f 69 |tern;.pa|scal voi|
|000012f0| 64 20 53 63 61 6e 54 6f | 52 65 74 75 72 6e 28 70 |d ScanTo|Return(p|
|00001300| 61 72 61 6d 50 74 72 2c | 73 63 61 6e 48 6e 64 6c |aramPtr,|scanHndl|
|00001310| 29 0d 09 58 43 6d 64 42 | 6c 6f 63 6b 50 74 72 09 |)..XCmdB|lockPtr.|
|00001320| 70 61 72 61 6d 50 74 72 | 3b 09 50 74 72 20 2a 09 |paramPtr|;.Ptr *.|
|00001330| 73 63 61 6e 48 6e 64 6c | 3b 09 65 78 74 65 72 6e |scanHndl|;.extern|
|00001340| 3b 0d 70 61 73 63 61 6c | 20 76 6f 69 64 20 53 63 |;.pascal| void Sc|
|00001350| 61 6e 54 6f 5a 65 72 6f | 28 70 61 72 61 6d 50 74 |anToZero|(paramPt|
|00001360| 72 2c 73 63 61 6e 48 6e | 64 6c 29 0d 09 58 43 6d |r,scanHn|dl)..XCm|
|00001370| 64 42 6c 6f 63 6b 50 74 | 72 09 70 61 72 61 6d 50 |dBlockPt|r.paramP|
|00001380| 74 72 3b 09 50 74 72 20 | 2a 09 73 63 61 6e 48 6e |tr;.Ptr |*.scanHn|
|00001390| 64 6c 3b 09 65 78 74 65 | 72 6e 3b 0d 0d 0d 0d 0d |dl;.exte|rn;.....|
|000013a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001400| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00001410| 00 00 04 14 00 14 04 79 | 00 74 88 00 00 00 00 90 |.......y|.t......|
|00001420| 00 07 00 00 00 00 00 84 | 00 da 00 96 01 20 04 04 |........|..... ..|
|00001430| 1a 31 2e 20 44 44 45 78 | 70 61 6e 64 45 78 70 61 |.1. DDEx|pandExpa|
|00001440| 6e 64 54 65 6d 70 46 69 | 6c 65 20 78 02 00 00 00 |ndTempFi|le x....|
|00001450| 00 00 44 44 54 4d 44 44 | 41 50 01 00 00 00 00 00 |..DDTMDD|AP......|
|00001460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001470| 00 00 a5 f3 e9 10 00 00 | 13 20 00 00 01 7e 74 00 |........|. ...~t.|
|00001480| 00 00 00 00 00 52 00 da | 00 64 01 20 04 05 44 72 |.....R..|.d. ..Dr|
|00001490| 69 76 65 00 00 00 00 00 | 00 9d 00 11 00 ad 00 c2 |ive.....|........|
|000014a0| 10 00 00 00 00 00 00 1d | 00 0e 00 7f 00 c5 80 00 |........|........|
|000014b0| 00 00 00 30 00 01 00 00 | 00 00 00 32 00 70 00 44 |...0....|...2.p.D|
|000014c0| 00 ba 04 02 4f 4b 00 00 | 00 00 00 0e 00 10 00 2e |....OK..|........|
|000014d0| 00 ba 88 0f 44 69 73 6b | 20 69 73 20 6c 6f 63 6b |....Disk| is lock|
|000014e0| 65 64 2e 00 00 00 00 4a | 00 02 00 00 00 00 00 32 |ed.....J|.......2|
|000014f0| 00 70 00 44 00 ba 04 02 | 4e 6f 00 00 00 00 00 32 |.p.D....|No.....2|
|00001500| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 ff 00 0a |...H..Mo|naco....|
|00001510| 00 ff 01 c5 6f e8 00 0a | 00 6d 01 1d 00 cf 01 2d |....o...|.m.....-|
|00001520| 00 00 00 4a 01 2d 00 06 | 00 04 00 3c 00 24 01 53 |...J.-..|...<.$.S|
|00001530| 01 fd 00 3c 00 24 01 53 | 01 fd 9d 58 99 ab 00 00 |...<.$.S|...X....|
|00001540| 02 cc 00 00 02 cc 00 00 | 02 80 01 00 00 00 01 00 |........|........|
|00001550| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 01 9f 14 |...L...L|...2....|
|00001560| 03 50 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.P.....2|..MPSR..|
|00001570| 00 0a 03 ed ff ff 00 00 | 00 00 00 02 a0 24 00 00 |........|.....$..|
+--------+-------------------------+-------------------------+--------+--------+